home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / flexte.arc / FLEXTEND.FRM < prev    next >
Text File  |  1989-02-24  |  6KB  |  104 lines
  1. /SCREEN
  2. ╔═════════════════════════════════════════════════════════════════════════════╗
  3. ║ Flextend Demo                                    Bennett Software Solutions ║
  4. ╠═══════════════════════════════[DOS Functions]═══════════════════════════════╣
  5. ║       Flextend Version : ___________                                        ║
  6. ║           Serial Ports : _.                                                 ║
  7. ║          Current Drive : _                                                  ║
  8. ║               Floppies : _.                                                 ║
  9. ║   Size of FLEXTEND.FLX : _____.                                             ║
  10. ║   Available Disk Space : _________.                                         ║
  11. ║               Printers : _.                                                 ║
  12. ║            DOS Version : _____                                              ║
  13. ║      Current Directory : ________________________________                   ║
  14. ║                                                                             ║
  15. ╠══════════════════════════════[Novell Functions]═════════════════════════════╣
  16. ║         Workstation ID : ___.                                               ║
  17. ║         Server version : _______                                            ║
  18. ║            Server Name : ________________________________________________   ║
  19. ║            Local Disks : _.                                                 ║
  20. ║            Physical ID : ____________                                       ║
  21. ║              User Name : ________________________________________________   ║
  22. ║            Printer '0' : Form is __.,  it is _______ and _______            ║
  23. ║                                                                             ║
  24. ╚═════════════════════════════════════════════════════════════════════════════╝
  25.         RETURN to run again, F9 to refresh the screen, ESCAPE to exit _,
  26. /ERR
  27. ╔═════════════════════════════════════════════════════════════════════════════╗
  28. ║ An error has occured involving FLEXTEND.  Please check the following        ║
  29. ║                                                                             ║
  30. ╠═════════════════════════════════════════════════════════════════════════════╣
  31. ║                                                                             ║
  32. ║ - Has DFRET been added to your MS-DOS environment?  Use the command:        ║
  33. ║                                                                             ║
  34. ║   SET DFRET=XXXXXXXXXXXXXXXXXXXXXXXX                                        ║
  35. ║                                                                             ║
  36. ║   from DOS to allocate some space for return information for Flextend.      ║
  37. ║                                                                             ║
  38. ╠═════════════════════════════════════════════════════════════════════════════╣
  39. ║                                                                             ║
  40. ║ - Is FLEXTEND.EXE accessabile.  Is it in the current directory or a         ║
  41. ║                                                                             ║
  42. ║   directory that can be accessed from MS-DOS                                ║
  43. ║                                                                             ║
  44. ╚═════════════════════════════════════════════════════════════════════════════╝
  45. _
  46. /*
  47.  
  48. // * Include files
  49. #INCLUDE FLEXTEND.MAC     // Include access to the FLEXTEND executable
  50.  
  51. // * Declare variables
  52. INDICATOR PRINT_STATUS
  53. STRING VERSION
  54. INTEGER POSIT
  55.  
  56. // * Get Flextend version / Abort if Flextend not found
  57. FLEXTEND_VER VERSION
  58. POS '.' IN VERSION TO POSIT
  59. IF POSIT EQ 0 BEGIN
  60.   ACCEPT ERR.1
  61.   ABORT
  62. END
  63.  
  64. // * Main program loop
  65. PAGE SCREEN
  66. REPEAT
  67.  
  68.   // * DOS Commands
  69.   MOVE VERSION TO SCREEN.1                  // Flextend version
  70.   SERIALPORTS SCREEN.2                      // Serial ports installed
  71.   CURRENT_DRIVE SCREEN.3                    // Current drive letter
  72.   FLOPPIES SCREEN.4                         // Number of floppy drives
  73.   DOS_FILESIZE 'FLEXTEND.FLX' TO SCREEN.5   // DOS filesize
  74.   DISKSPACE "" TO SCREEN.6                  // Disk space of current drive
  75.   PRINTERS SCREEN.7                         // Number of printers
  76.   DOS_VERSION SCREEN.8                      // Current DOS version
  77.   CURRENT_DIR "" TO SCREEN.9                 // Current Directory
  78.  
  79.   // * Novell Commands
  80.   WS_ID SCREEN.10
  81.   IF SCREEN.10 NE 0 BEGIN   // * Check for a workstaion ID number first
  82.     SERVER_VER SCREEN.11                               // Server Version
  83.     SERVER_NAME SCREEN.12                              // Server Name
  84.     LOCAL_DISK SCREEN.13                               // Local Disks
  85.     PHYSICAL_ID SCREEN.14                              // Phys. Station #
  86.     USER_NAME SCREEN.15                                // User Name
  87.     FORM_LOADED 0 TO SCREEN.16                         // Loaded Form #
  88.     PRINTER_HALTED 0 TO PRINT_STATUS                   // Printer Halted?
  89.     [PRINT_STATUS] MOVE 'HALTED' TO SCREEN.17          // - Yes it is
  90.     [NOT PRINT_STATUS] MOVE 'RUNNING' TO SCREEN.17     // - Nope...
  91.     PRINTER_OFFLINE 0 TO PRINT_STATUS                  // Printer Offline?
  92.     [PRINT_STATUS] MOVE 'OFFLINE' TO SCREEN.18         // - Yes
  93.     [NOT PRINT_STATUS] MOVE 'ONLINE' TO SCREEN.18      // - No running fine
  94.   END
  95.  
  96.   ACCEPT SCREEN.19             // Pause a bit
  97.   [KEY.CLEAR] CLEARSCREEN      // Refresh display?
  98.   [KEY.CLEAR] CLEARFORM SCREEN
  99.   [KEY.CLEAR] PAGE SCREEN
  100.  
  101. UNTIL [KEY.ESCAPE]
  102. CLEARSCREEN
  103. ABORT
  104.